home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / NEXT.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  439 b   |  13 lines
  1.  
  2. *END OF FOR, WHILE, OR UNTIL LOOP
  3.  
  4. NEXT   $MACRO
  5.        $VAR I,W,T,Q
  6.        $ASG '$$LPS' TO I.S           GET CNTXT VAR
  7.        $ASG '$$LP' TO Q.S
  8.        $ASG :I.SS: TO W.S            MAKE THIS CNTXT VAR
  9.        B    I$:W.SV:                 BR TO LOOP START
  10. E$:W.SV: EQU $                       END OF LOOP
  11.        $ASG I.SV-1 TO I.SV           POP CNTXT
  12.        $ASG :Q::I.SV: TO I.SS        MAKE OLD THIS CNTXT VAR
  13.        $END